home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh12a.d64 / basic-demo 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  606b  |  27 lines
  1. 10 REM ******************
  2. 20 REM * DEMOPROGRAMM 2 *
  3. 30 REM ******************
  4. 40 :
  5. 50 :
  6. 60 IF A=0 THEN A=1:LOAD"PULL-DOWN-OBJECT",8,1:REM ROUTINEN NACHLADEN
  7. 70 :
  8. 71 DIM A$(20),B$(20)
  9. 72 FOR I=1 TO 20
  10. 73 : A$(I)="DIES IST EIN TEST"
  11. 74 : B$(I)="EIN WEITERER TEST"
  12. 75 NEXT
  13. 76 :
  14. 100 PRINTCHR$(147)
  15. 110 PRINT"'SPACE' SCHLIESST DAS JEWEILS OBERSTE WINDOW":PRINT
  16. 120 FOR I=1 TO 20
  17. 130 : PRINT"  UEBERLAGERUNG MEHRERER WINDOWS"
  18. 140 NEXT
  19. 150 SYS50688+3,5,5,15,10,0,0
  20. 160 SYS50688,5,5,15,10,A$(1)
  21. 170 SYS50688+3,15,8,8,13,0,1
  22. 180 SYS50688,15,8,8,13,B$(1)
  23. 200 GETA$:IFA$<>" " THEN 200
  24. 210 SYS50688+3,15,8,8,13,1,1
  25. 220 GETA$:IFA$<>" " THEN 220
  26. 230 SYS50688+3,5,5,15,10,1,0
  27.